home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
U-User Group
/
(k)u2.d64
/
heading.proc
< prev
next >
Wrap
Text File
|
2007-02-28
|
609b
|
32 lines
0010 // RETURNS TURTLE'S HEADING 0-360
0020 //
0030 FUNC HEADING CLOSED
0040 A:=PEEK(27277); B:=PEEK(27278)
0050 CASE A OF
0060 WHEN 0
0070 RETURN 90
0080 WHEN 129
0090 RETURN 89
0100 WHEN130
0110 RETURN 88-(B DIV 64)
0120 WHEN 131
0130 RETURN 82-(B DIV 32)
0140 WHEN 132
0150 RETURN 82-(B DIV 16)
0160 WHEN 133
0170 RETURN 74-(B DIV 8)
0180 WHEN 134
0190 RETURN 58-(B DIV 4)
0200 WHEN 135
0210 IF B<53 THEN
0220 RETURN 26-(B DIV 2)
0230 ELSE
0240 RETURN 386-(B DIV 2)
0250 ENDIF
0260 WHEN 136
0270 RETURN 322-B
0280 WHEN 137
0290 RETURN (194-(B*2))-(PEEK(27279) DIV 128)
0300 ENDCASE
0310 ENDFUNC HEADING